home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / Demos / librarytest.c < prev    next >
C/C++ Source or Header  |  1996-10-24  |  978b  |  54 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: librarytest.c,v 1.4 1996/09/17 16:43:00 digulla Exp $
  4.     $Log: librarytest.c,v $
  5.     Revision 1.4  1996/09/17 16:43:00  digulla
  6.     Use general startup code
  7.  
  8.     Revision 1.3  1996/09/12 14:48:55  digulla
  9.     Tests why it didn´t work
  10.  
  11.     Revision 1.2  1996/08/01 17:40:44  digulla
  12.     Added standard header for all files
  13.  
  14.     Desc:
  15.     Lang:
  16. */
  17. #include <clib/exec_protos.h>
  18. #include <clib/dos_protos.h>
  19. #include <clib/aros_protos.h>
  20. #include "dummylib_gcc.h"
  21.  
  22. int main (int argc, char ** argv)
  23. {
  24.     int a=1,b=2,c=0,d=0;
  25.     struct dummybase *dummybase;
  26.  
  27.     dummybase=(struct dummybase *)OpenLibrary("dummy.library",0);
  28.  
  29.     if(dummybase!=NULL)
  30.     {
  31.     ULONG vec[3];
  32.  
  33.     c=add(a,b);
  34.  
  35.     d=asl(a,b);
  36.  
  37.     vec[0]=a;
  38.     vec[1]=b;
  39.     vec[2]=c;
  40.     VPrintf("%ld+%ld=%ld\n",vec);
  41.  
  42.     vec[0]=a;
  43.     vec[1]=b;
  44.     vec[2]=d;
  45.     VPrintf("%ld<<%ld=%ld\n",vec);
  46.  
  47.     Flush (Output ());
  48.  
  49.     CloseLibrary((struct Library *)dummybase);
  50.     }
  51.  
  52.     return 0;
  53. }
  54.